home *** CD-ROM | disk | FTP | other *** search
/ Ian & Stuart's Australian Mac: Not for Sale / Another.not.for.sale (Australia).iso / fade into you / being there / Issues & Ideas / Anonymous remailers / Remailers / morpheus-remailer-hack Folder / Remailer-Status-Alive.pl < prev    next >
Perl Script  |  1993-06-29  |  457b  |  31 lines
  1. #!/usr/bin/perl
  2.  
  3. # next remailer is fine, continue with message
  4.  
  5. while (<>) {
  6.     s/[ \t\r]*$// ;
  7.         last if /^$/ ;
  8.         if (/^Remailer-Status-Alive:/) {
  9.                 chop ;
  10.                 s/^.*: // ;
  11.                 $spoolid = $_ ;
  12.         }
  13. }
  14.  
  15. open (SPOOL, "spool/$spoolid");
  16.  
  17. open( OUTPUT, "| slocal.pl " . $addressee );
  18.  
  19. #open (OUTPUT, ">/tmp/yak");
  20.  
  21. select( OUTPUT ) ;
  22.  
  23. while (<SPOOL>) 
  24. {
  25. print;
  26. }
  27.  
  28. close(OUTPUT);
  29.  
  30. unlink ( "spool/$spoolid");
  31.